﻿<%
class ActionSoap
	public sub index
		Mo.Use "SoapIpAddressSearchWebServiceSoap12"
		dim soap
		set soap = MoLibSoapIpAddressSearchWebServiceSoap12.New()
		Mo.assign "url",soap.Url
		Mo.assign "result",F.encodeHtml(soap.getCountryCityByIp("222.195.158.135"))
		Mo.assign "request",F.encodeHtml(soap.Request)
		Mo.assign "comment","使用委托类SoapIpAddressSearchWebServiceSoap12，请求WebServices"
		Mo.display "Home:Soap"
	end sub
	public sub soap2
		Mo.Use "Soap"
		dim soap
		set soap = MoLibSoap.New("http://webservice.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx","http://WebXml.com.cn/")
		Mo.assign "url",soap.Url
		Mo.assign "result",F.encodeHtml(soap.Invoke("getCountryCityByIp","theIpAddress","222.195.158.135"))
		Mo.assign "request",F.encodeHtml(soap.Request)
		Mo.assign "comment","这种方式没有使用中间的委托类SoapIpAddressSearchWebServiceSoap12，直接指定参数请求WebServices"
		Mo.display "Home:Soap"
	end sub
end class
%>